home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1993 September / Nautilus CD Magazine Volume 3-9 September 1993 Windows Edition.mdf / educ / mathplot / mathplot.fun < prev    next >
Text File  |  1992-09-07  |  2KB  |  169 lines
  1. DISPLAY MATHPLOT example functions.
  2. DISPLAY Press Enter when you are finished looking at each plot.
  3. LIST ON
  4.  
  5. RESET
  6. TITLE Damped oscillations
  7. Y = EXP(-.2*X)*COS(X)
  8. DOMAIN 0,6*PI
  9. LABEL OFF
  10. PLOT 30
  11.  
  12. RESET
  13. TITLE Second and third order Butterworth filters
  14. Y1=1/SQRT(1+(X/2000)^4)
  15. Y2=1/SQRT(1+(X/2000)^6)
  16. DOMAIN 0,8000
  17. NUMPOINTS 100
  18. LABEL ON
  19. GRID ON
  20. PLOT 30
  21.  
  22. RESET
  23. Title Air Pressure (PSI) at Altitude (ft/1000)
  24. y=14.7*exp(-.038508*x)
  25. LABEL ON
  26. GRID ON
  27. DOMAIN 0,50
  28. PLOT
  29.  
  30. RESET
  31. TITLE Boiling point of water vs. pressure
  32. CTITLE 7
  33. y = -3227 / LOG(X/1698) - 459.7
  34. CF1 2
  35. DOMAIN 2,15
  36. NUMPOINTS 100
  37. LABEL ON
  38. CAXES 3
  39. AXES ON
  40. CAXES 3
  41. GRID ON
  42. CGRID 8
  43. COMMONSCALE OFF
  44. ORIGIN OFF
  45. PLOT
  46.  
  47. RESET
  48. TITLE Fourth order Chebyshev low-pass filter
  49. CTITLE 7
  50. y=1/SQRT(1+P0^2*T(P1,X/P3)^2)
  51. CF1 2
  52. DOMAIN 0,4000
  53. NUMPOINTS 100
  54. P0 0.5
  55. P1 4
  56. P3 2000
  57. LABEL ON
  58. CAXES 3
  59. GRID ON
  60. CGRID 8
  61. PLOT 30
  62.  
  63. RESET
  64. TITLE Fourier series approximation of square wave
  65. Y1 = SIN(X) + SIN(3*X)/3 + SIN(5*X)/5 + SIN(7*X)/7
  66. Y2 = PULSE(0,X,PI) - PULSE(PI,X,2*PI)
  67. DOMAIN .001,2*PI+.001
  68. NUM 200
  69. LABELS ON
  70. GRID ON
  71. PLOT 30
  72.  
  73. RESET
  74. TITLE Cubic equation: Y = 2*X^3 + 50*X^2 + 100*X + 5000
  75. CTITLE 7
  76. Y=2*X^3+50*X^2+100*X+5000
  77. DOMAIN -30,18
  78. NUMPOINTS 100
  79. LABEL ON
  80. GRID ON
  81. PLOT 30
  82.  
  83. RESET
  84. TITLE Hyperbolic function:  X * Y = 5
  85. Y1=5/T
  86. X1=T
  87. CF1 2
  88. Y2=-5/T
  89. X2=-T
  90. CF2 2
  91. DOMAIN 0.5,10
  92. LABEL OFF
  93. COMMONSCALE ON
  94. PLOT 30
  95.  
  96. RESET
  97. TITLE Hypocycloid of four cusps (Astroid)
  98. CTITLE 4
  99. y=SIN(T)^3
  100. x=COS(T)^3
  101. CF1 2
  102. DOMAIN 0,6.28319
  103. NUMPOINTS 100
  104. LABEL OFF
  105. CAXES 1
  106. COMMONSCALE ON
  107. PLOT 30
  108.  
  109. RESET
  110. TITLE Reciprocal of Gamma function
  111. CTITLE 7
  112. y=GAMMAI(X)
  113. CF1 2
  114. DOMAIN -4,6
  115. NUMPOINTS 100
  116. LABEL ON
  117. CAXES 3
  118. GRID ON
  119. CGRID 8
  120. COMMONSCALE OFF
  121. ORIGIN OFF
  122. PLOT 30
  123.  
  124. RESET
  125. TITLE Normal probability distribution function
  126. Y=NORMAL(X)
  127. DOMAIN -4,4
  128. NUMPOINTS 150
  129. LABEL OFF
  130. PLOT 30
  131.  
  132. RESET
  133. Display Now for some "artistic" plots.
  134. R=2*SIN(2*A)
  135. CF1 3
  136. DOMAIN 0,2000
  137. NUMPOINTS 500
  138. LABEL OFF
  139. AXES OFF
  140. PLOT 30
  141.  
  142. RESET
  143. y=SIN(T)^3
  144. x=COS(T)^3
  145. CF1 2
  146. DOMAIN 0,4000
  147. NUMPOINTS 500
  148. LABEL OFF
  149. AXES OFF
  150. GRID OFF
  151. COMMONSCALE ON
  152. PLOT 30
  153.  
  154. RESET
  155. y=5*SIN(T)-SIN(5*T)
  156. x=5*COS(T)-COS(5*T)
  157. CF1 3
  158. DOMAIN 0,6000
  159. NUMPOINTS 400
  160. LABEL OFF
  161. AXES OFF
  162. COMMONSCALE ON
  163. PLOT 30
  164.  
  165. DISPLAY Type or edit MATHPLOT.FUN to see the function descriptions.
  166. DISPLAY The file MATHPLOT.DOC contains a tutorial and full instructions.
  167. EXIT
  168.  
  169.